# -*-cperl-*-
use strict;
use warnings FATAL => 'all';
use blib;

use Test::More tests => 4;
my $test_count;

BEGIN {
    $test_count = 0;
    # module => minimum version
    my %modules = (
                    # version => '',
                    Want => '',
                    'Term::ReadKey' => '',
                   );
    foreach my $module (keys %modules) {
        my $min_version = $modules{$module};
        if ($min_version ne '') {
            use_ok($module, $min_version);
        } else {
            use_ok($module);
        }

        $test_count++;
    }
};

# Depends on hardcoded /dev/tty access
ok( open(my $OUT, ">/dev/tty"), "Output to /dev/tty");
$test_count++;

ok( open(my $IN, "</dev/tty"), "Input from /dev/tty");
$test_count++;

diag("test count: $test_count");
